home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / DARK.ZIP / ALIASES.INI next >
INI File  |  1997-03-11  |  21KB  |  365 lines

  1. [Aliases]
  2. n0=massinvite {
  3. n1=  set %massinvite.domain $$?="Enter domain to mass invite (eg *.aol.com)" 
  4. n2=  set %massinvite.chan $$?="Enter channel to mass invite to"
  5. n3=  set %massinvite.count 0 | set %massinvite.temp1 *!*@ $+ %massinvite.domain | .enable #massinvite 
  6. n4=  who %massinvite.domain
  7. n5=}
  8. n6=ip {
  9. n7=  set %i 1
  10. n8=  :next
  11. n9=  if $chat(%i) == $null { goto done }
  12. n10=  if $chat(%i).status == active { msg = $+ $$1 $chat(%i) - $chat(%i).ip }
  13. n11=  inc %i
  14. n12=  goto next
  15. n13=  :done
  16. n14=}
  17. n15=users {
  18. n16=  set %i 1
  19. n17=  :next
  20. n18=  if $chat(%i) == $null goto done
  21. n19=  if ($chat(%i).status == active) { msg = $+ $$1 [- $chat(%i) is logged on -] }
  22. n20=  inc %i
  23. n21=  goto next
  24. n22=  :done
  25. n23=  set %temp [ %i - 1 ]
  26. n24=  msg = $+ $$1 Total users: %temp
  27. n25=  unset %temp
  28. n26=}
  29. n27=action {
  30. n28=  set %i 1
  31. n29=  :next
  32. n30=  set %chat $chat(%i)
  33. n31=  if %chat == $null goto done
  34. n32=  if ((%chat != $1) && ($chat(%i).status == active)) { msg = $+ %chat 6* $1 *2  }
  35. n33=  inc %i
  36. n34=  goto next
  37. n35=  :done
  38. n36=}
  39. n37=pmsg {
  40. n38=  set %i 1
  41. n39=  :next
  42. n40=  if $chat(%i) == $null { goto done }
  43. n41=  if (($chat(%i) == $parm2) && ($chat(%i).status == active)) { 
  44. n42=    msg = $+ $parm2 8,14 $nick $+ :  $parm3* 
  45. n43=    set %i 1
  46. n44=    goto done
  47. n45=  }
  48. n46=  inc %i
  49. n47=  goto next
  50. n48=  :done
  51. n49=  if (%i != 1) { msg =$nick 0,5 That user is not logged in.  }
  52. n50=}
  53. n51=commands {
  54. n52=  msg = $+ $$1 -------- -=|-D└«K■HO«╟╚-|=- Commands --------
  55. n53=  msg = $+ $$1 - ~list - lists currently logged in users
  56. n54=  msg = $+ $$1 - ~msg <nick> <msg> - sends private messge
  57. n55=  msg = $+ $$1 - ~ip - get all users IPs                                  
  58. n56=  msg = $+ $$1 ----------------------------------------------
  59. n57=}
  60. n58=/rtalk {
  61. n59=  set %rk $$?2="EnteráText" *3
  62. n60=  %rk = $replace(%rk,!,í!)
  63. n61=  %rk = $replace(%rk,?,┐?)
  64. n62=  %rk = $replace(%rk,a,¬)
  65. n63=  %rk = $replace(%rk,b,▀)
  66. n64=  %rk = $replace(%rk,c,⌐)
  67. n65=  %rk = $replace(%rk,d,╨)
  68. n66=  %rk = $replace(%rk,e,Ω)
  69. n67=  %rk = $replace(%rk,f,F)
  70. n68=  %rk = $replace(%rk,g,G)
  71. n69=  %rk = $replace(%rk,h,h)
  72. n70=  %rk = $replace(%rk,i,∞)
  73. n71=  %rk = $replace(%rk,j,J)
  74. n72=  %rk = $replace(%rk,k,k)
  75. n73=  %rk = $replace(%rk,l,ú)
  76. n74=  %rk = $replace(%rk,m,m)
  77. n75=  %rk = $replace(%rk,n,╤)
  78. n76=  %rk = $replace(%rk,o,°)
  79. n77=  %rk = $replace(%rk,p,▐)
  80. n78=  %rk = $replace(%rk,q,╢)
  81. n79=  %rk = $replace(%rk,r,«)
  82. n80=  %rk = $replace(%rk,s,º)
  83. n81=  %rk = $replace(%rk,t,t)
  84. n82=  %rk = $replace(%rk,u,·)
  85. n83=  %rk = $replace(%rk,v,v)
  86. n84=  %rk = $replace(%rk,w,\x/)
  87. n85=  %rk = $replace(%rk,x,╫)
  88. n86=  %rk = $replace(%rk,y,Ñ)
  89. n87=  %rk = $replace(%rk,z,z)
  90. n88=  %rk = $replace(%rk,1,╣)
  91. n89=  %rk = $replace(%rk,2,▓)
  92. n90=  %rk = $replace(%rk,3,│)
  93. n91=  %rk = $replace(%rk,0,╪)
  94. n92=  %rk = $replace(%rk,',┤)
  95. n93=  %rk = $replace(%rk,",æ)
  96. n94=  %rk = $replace(%rk,!,íí)
  97. n95=  %rk = $replace(%rk,?,┐┐)
  98. n96=  if (say isin $1) { say %rk }
  99. n97=  if (me isin $1) { me %rk }
  100. n98=  unset %rk
  101. n99=}
  102. n100=rs rtalk say *1
  103. n101=rm rtalk me *1
  104. n102=/c {
  105. n103=  set %max $len(*1) | set %i 0 | set %c 0 | set %text $chr(160)
  106. n104=  :loop
  107. n105=  inc %i | inc %c
  108. n106=  if (%c == 16) set %c 1
  109. n107=  if (%i > %max) goto print
  110. n108=  %letter = $mid(%i,1,*1)
  111. n109=  if ($asc(%letter) == 32) { %text = %text $+ $chr(0160) | goto loop }
  112. n110=  %text = %text $+  $+ %c $+ %letter | goto loop
  113. n111=  :print
  114. n112=  say  %text
  115. n113=}
  116. n114=sc say $enc(*1)
  117. n115=; Arrays functions by UniLynx, please DON'T TOUCH THEM, they're used somewhere else
  118. n116=addelement set % [ $+ [ $$1 ] ] [ % [ $+ [ $$1 ] ] ] $$2
  119. n117=delelement  set % [ $+ [ $$1 ] ] $remove( % [ $+ [ $$1 ] ] , $$2 )
  120. n118=iselement { 
  121. n119=  %__is_i = 1
  122. n120=  :iselement_loop
  123. n121=  if ($token(%__is_i,32,% [ $+ [ $$1 ] ] ) == $null) return 0
  124. n122=  if ($token(%__is_i,32,% [ $+ [ $$1 ] ] ) == $$2) return 1
  125. n123=  inc %__is_i
  126. n124=  goto iselement_loop
  127. n125=}
  128. n126=countelement {
  129. n127=  %__count_i = 0
  130. n128=  :countelement_loop
  131. n129=  if ($token(%__count_i,32,% [ $+ [ $$1 ] ] ) == $null) return %__count_i
  132. n130=  inc %__count_i
  133. n131=  goto countelement_loop
  134. n132=}
  135. n133=colorcrypt {
  136. n134=  if ($$1 == help) { 
  137. n135=    echo 1 -a /1C2o3l4o5r6c7r8y9p10t list lists the keys in your keyfile 
  138. n136=    echo 1 -a /1C2o3l4o5r6c7r8y9p10t add <key> <A> <B> adds a single key
  139. n137=    echo 1 -a (<key> is key ID, <A> and <B> should be unique, they tell *how* to crypt. if you've got the wrong A and B, you can't crypt or decrypt that key properly
  140. n138=    echo 1 -a /1C2o3l4o5r6c7r8y9p10t del <key> deletes that key
  141. n139=    echo 1 -a Use /colorcrypt add ColCrypt 0 0 to create the colorcrypt key everyone should have :)
  142. n140=    echo 1 -a Then create keys for your friends only, and give them the key, A and B values.
  143. n141=    echo 1 -a Try to think of KeyIDs noone else is likely to use, otherwise you'll get into trouble when you need to add a key with the same name but different A's and B's :)
  144. n142=    echo 1 -a Type  /key ColCrypt to use the default key (after creating it first, of course :) )
  145. n143=    echo 2 -a ColorCrypt by 4UniLynx, 12unilynx@cryogen.com
  146. n144=    return
  147. n145=  }
  148. n146=  if ($$1 == add) {
  149. n147=    if ($$4 == $null) { 
  150. n148=      echo 1 -a Not enough parameters
  151. n149=      echo 1 -a /1C2o3l4o5r6c7r8y9p10t add <key> <A> <B> adds a single key
  152. n150=      echo 1 -a (<key> is key ID, <A> and <B> should be unique)
  153. n151=      return
  154. n152=    }
  155. n153=    if ($$3 < 0 || $$3 > 80 || $$4 < 0 || $$4 > 80) { echo 1 -a A and B must be in range 0 - 80 | return }
  156. n154=    set %keylist $readini gs.ini colorcrypt keylist
  157. n155=    delelement keylist $$2
  158. n156=    if (%keylist == $null) set %keylist $$2
  159. n157=    else addelement keylist $$2
  160. n158=    writeini gs.ini colorcrypt keylist %keylist
  161. n159=    writeini gs.ini colorcrypt addA_ [ $+ [ $$2 ] ] $$3
  162. n160=    writeini gs.ini colorcrypt addB_ [ $+ [ $$2 ] ] $$4
  163. n161=    set %key_A_ [ $+ [ $$2 ] ] $$3
  164. n162=    set %key_B_ [ $+ [ $$2 ] ] $$4
  165. n163=    echo 1 -a Key added
  166. n164=    return
  167. n165=  }
  168. n166=  if ($$1 == del) {
  169. n167=    if ($$2 == $null) {
  170. n168=      echo 1 -a Not enough parameters
  171. n169=      echo 1 -a /1C2o3l4o5r6c7r8y9p10t del <key> deletes that key
  172. n170=      return
  173. n171=    }
  174. n172=    set %keylist $readini gs.ini colorcrypt keylist
  175. n173=    delelement keylist $$2
  176. n174=    if (%keylist == $null) writeini gs.ini colorcrypt keylist $ $+ null
  177. n175=    else writeini gs.ini colorcrypt keylist %keylist
  178. n176=    writeini gs.ini colorcrypt addA_ [ $+ [ $$2 ] ] $ $+ null
  179. n177=    writeini gs.ini colorcrypt addB_ [ $+ [ $$2 ] ] $ $+ null
  180. n178=    unset %key_A_ [ $+ [ $$2 ] ]
  181. n179=    unset %key_B_ [ $+ [ $$2 ] ]
  182. n180=    echo 1 -a Key removed
  183. n181=    return
  184. n182=  }
  185. n183=  if ($$1 == list) {
  186. n184=    set %keylist $readini gs.ini colorcrypt keylist
  187. n185=    if (%keylist == $null) { echo 1 -a No keys yet | return }
  188. n186=    %i = 1
  189. n187=    :listloop
  190. n188=    if ($token(%i,32,%keylist) == $null) return
  191. n189=    echo 1 -a KeyID: $token(%i,32,%keylist)  A: $readini gs.ini colorcrypt addA_ [ $+ [ $token(%i,32,%keylist) ] ]  B: $readini gs.ini colorcrypt addB_ [ $+ [ $token(%i,32,%keylist) ] ]
  192. n190=    inc %i
  193. n191=    goto listloop
  194. n192=    return
  195. n193=  }
  196. n194=  echo 1 -a Unknown parameter
  197. n195=}
  198. n196=key {
  199. n197=  set %keylist $readini gs.ini colorcrypt keylist
  200. n198=  if (%keylist == $null) { echo 4 -a No keys defined yet! | echo 4 -a Type /colorcrypt help for help | return }
  201. n199=  if ($iselement(keylist,$$1) == 0) { echo 4 -a Unknown key | echo 4 -a Type /colorcrypt list for a list of known keys | return }
  202. n200=  set %key_A_ [ $+ [ $$1 ] ] $readini gs.ini colorcrypt addA_ [ $+ [ $$1 ] ]
  203. n201=  set %key_B_ [ $+ [ $$1 ] ] $readini gs.ini colorcrypt addB_ [ $+ [ $$1 ] ]
  204. n202=  echo 1 -a Now using key $$1 !
  205. n203=  set %key $$1
  206. n204=}
  207. n205=enc {
  208. n206=  if (%key == $null) { echo 4 -a You must first set a key! (/key <keycode>) | echo 4 -a Type /colorcrypt help for help | return }
  209. n207=  set %crypt Colorcrypt,_by_UniLynx(unilynx@cryogen.com)___http://www.netville.net/~godskrypt____
  210. n208=  %i = 0
  211. n209=  set %copy 9,6C7,8C $+ %key $+ 
  212. n210=  :enc_loop
  213. n211=  inc %i
  214. n212=  if (%i > $len(*1)) return %copy
  215. n213=  %a = $asc($mid(%i,1,*1)) / 16
  216. n214=  %a = %a + [ %key_A_ [ $+ [ %key ] ] ]
  217. n215=  %b = $asc($mid(%i,1,*1)) % 16
  218. n216=  %b = %b + [ %key_B_ [ $+ [ %key ] ] ]
  219. n217=  %c =  %i % $len(%crypt)
  220. n218=  if (%c == 0) %c = $len(%crypt)
  221. n219=  set %copy %copy $+  $+ %a $+ , $+ %b $+ $mid(%c,1,%crypt)
  222. n220=  goto enc_loop
  223. n221=}
  224. n222=dec {
  225. n223=  set %usedkey $mid(13,$pos($mid(14,10000,*1),),*1)
  226. n224=  if (%key_A_ [ $+ [ %usedkey ] ] == $null) {
  227. n225=    set %key_A_ [ $+ [ %usedkey ] ] $readini gs.ini colorcrypt addA_ [ $+ [ %usedkey ] ]
  228. n226=    if (%key_A_ [ $+ [ %usedkey ] ] == $null) halt
  229. n227=    set %key_B_ [ $+ [ %usedkey ] ] $readini gs.ini colorcrypt addB_ [ $+ [ %usedkey ] ]
  230. n228=  }
  231. n229=  set %i $pos($mid(13,10000,*1),)
  232. n230=  %i = %i + 13
  233. n231=  set %z $mid(%i,1000,*1)
  234. n232=  unset %copy
  235. n233=  %i = 1
  236. n234=  unset %space
  237. n235=  :decloop
  238. n236=  set %x $gettok(%z,%i,3)
  239. n237=  if (%x == $null) return
  240. n238=  %a = $gettok(%x,1,44) - %key_A_ [ $+ [ %usedkey ] ]
  241. n239=  %b =  $abs($gettok(%x,2,44)) - %key_B_ [ $+ [ %usedkey ] ]
  242. n240=  %a = %a * 16
  243. n241=  %b = %b + %a
  244. n242=  if (%b == 32) { 
  245. n243=    %space = 1 
  246. n244=    inc %i
  247. n245=    goto decloop 
  248. n246=  }
  249. n247=  if (%space) {
  250. n248=    set %copy %copy $chr(%b)
  251. n249=    unset %space
  252. n250=  }
  253. n251=  else {
  254. n252=    if (%copy == $null) set %copy $chr(%b)
  255. n253=    else set %copy %copy $+ $chr(%b)
  256. n254=  }
  257. n255=  inc %i
  258. n256=  goto decloop
  259. n257=}
  260. n258=/c {
  261. n259=  set %max $len(*1) | set %i 0 | set %c 0 | set %text $chr(160)
  262. n260=  :loop
  263. n261=  inc %i | inc %c
  264. n262=  if (%c == 16) set %c 1
  265. n263=  if (%i > %max) goto print
  266. n264=  %letter = $mid(%i,1,*1)
  267. n265=  if ($asc(%letter) == 32) { %text = %text $+ $chr(0160) | goto loop }
  268. n266=  %text = %text $+  $+ %c $+ %letter | goto loop
  269. n267=  :print
  270. n268=  say  %text
  271. n269=}
  272. n270=/op /mode # +ooo $$1 $2 $3
  273. n271=/dop /mode # -ooo $$1 $2 $3
  274. n272=/j /join #$$1
  275. n273=/p /part #
  276. n274=/n /names #$$1
  277. n275=/w /whois $$1
  278. n276=/k /kick # $$1
  279. n277=/q /query $$1
  280. n278=/hop /part # | /join #$$1
  281. n279=/send /dcc send $1 $2
  282. n280=/chat /dcc chat $1
  283. n281=/ping /ctcp $$1 ping
  284. n282=ColorFlood  /timer 0 1 /timer 0 2 /say  12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^1234567
  285. n283=^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^123456
  286. n284=678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^123
  287. n285=345678^12345678^12345678^1234567^812345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^1
  288. n286=12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^123456
  289. n287=678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678
  290. n288=ColorFlood /timer 0 5 /say 12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678
  291. n289=^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^123456
  292. n290=678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^123
  293. n291=345678^12345678^12345678^1234567^812345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^1
  294. n292=12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^123456
  295. n293=678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678^12345678
  296. n294=/telnet {
  297. n295=  raw -q PRIVMSG $me : $+ $chr(001) $+ DCC CHAT CHAT $$1 $2 ?
  298. n296=}
  299. n297=/Gum /me offers $$1 a stick of  15,15l1,8<~Juicy-Fruit~>15,15l
  300. n298=/time /say 5,15 it is $time on the $date
  301. n299=/Port /say 5,15 I am on $server on port $port
  302. n300=}
  303. n301=f4 {
  304. n302=.ignore *!*@* 
  305. n303=echo -a 5,15-=- Complete ignore is on. Hit F5 to turn it off! -=-
  306. n304=.timer5 0 30 /echo -a 5,15-=-=- Complete ignore is on. Hit F5 to turn it off! -=-
  307. n305=}
  308. n306=f5 {
  309. n307=.ignore -r *!*@* 
  310. n308=.timer5 off 
  311. n309=echo -a 5,15-=- Complete ignore is now off. Hit F4 to turn back on! -=-
  312. n310=}
  313. n311=/poll {
  314. n312=set %vote.time $1
  315. n313=.enable #vote.ctcp
  316. n314=echo 3 $active *** Opening voting polls for %vote.time seconds...
  317. n315=.timer 1 1 amsg --- -=|-D└«K■HO«╟╚-|=- Voting Polls --
  318. n316=.timer 1 2 amsg The -=|-D└«K■HO«╟╚-|=- Voting Polls are open!
  319. n317=.timer 1 3 amsg Topic: %vote.topic
  320. n318=.timer 1 4 amsg To Vote YEA: /ctcp $me VOTE YEA
  321. n319=.timer 1 5 amsg To Vote NAY: /ctcp $me VOTE NAY
  322. n320=.timer 1 6 amsg To Obstain: /ctcp $me VOTE OBSTAIN
  323. n321=.timer 1 7 amsg You have %vote.time seconds to vote, the timer is started at the end of this message!
  324. n322=.timer 1 7 .timer 1 %vote.time /endpoll
  325. n323=}
  326. n324=/endpoll {
  327. n325=.disable #vote.ctcp
  328. n326=.rlevel 20
  329. n327=ame has CLOSED the -=|-D└«K■HO«╟╚-|=- Voting Polls!
  330. n328=echo 3 $active *** Voting poll is CLOSED!
  331. n329=echo 3 $active *** Tabulating votes...
  332. n330=amsg Please stand by while the votes are tabulated...
  333. n331=if %vote.yea == 0 && %vote.nay == 0 {
  334. n332=  amsg ERROR: For some reason I cannot seem to tabulate votes when there aren't any!  Go figure!
  335. n333=  halt
  336. n334=} 
  337. n335=else {
  338. n336=  if %vote.yea > %vote.nay {
  339. n337=    set %vote.win YEA
  340. n338=  }
  341. n339=  else if %vote.nay > %vote.yea {
  342. n340=    set %vote.win NAY
  343. n341=  }
  344. n342=  .timer 1 1 amsg --- -=|-D└«K■HO«╟╚-|=- Voting Polls (Results) ---
  345. n343=  .timer 1 2 amsg Topic: %vote.topic
  346. n344=  .timer 1 3 amsg Votes YEA: %vote.yea
  347. n345=  .timer 1 4 amsg Votes NAY: %vote.nay
  348. n346=  .timer 1 5 amsg Obstentions: %vote.obstain
  349. n347=  if %vote.win == yea {
  350. n348=    .timer 1 6 amsg Wins: YEA
  351. n349=  }
  352. n350=  else if %vote.win == nay {
  353. n351=    .timer 1 7 amsg Wins: NAY
  354. n352=  }
  355. n353=  .timer 1 8 amsg --- End Of Tabulation ---
  356. n354=}
  357. n355=}
  358. n356=/rresult {
  359. n357=ame pulls out his chalk eraser and erases the tabulation board...
  360. n358=echo 3 $active *** Erased tabulation board!
  361. n359=set %vote.yea 0
  362. n360=set %vote.nay 0
  363. n361=set %vote.obstain 0
  364. n362=/nuclear /say 1,4=-=8,1W1,8A8,1R1,8N8,1I1,8N8,1G1,4=-=1,8N8,1U1,8C8,1L1,8E8,1A1,8R1,4=-=8,1B1,8I8,1O1,8-8,1H1,8A8,1Z1,8A8,1R1,8D1,4=-=
  365.